home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / standalone / netdrake < prev    next >
Encoding:
Text File  |  2000-01-12  |  266 b   |  19 lines
  1. #!/usr/bin/perl
  2.  
  3. use lib qw(/usr/lib/libDrakX);
  4.  
  5. use interactive;
  6. use c;
  7. #use common qw(:system);
  8.  
  9. local $_ = join '', @ARGV;
  10.  
  11. /-h/ and die "usage: netdrake [--expert]\n";
  12.  
  13. $::expert = /-expert/;
  14. $::isStandalone = 1;
  15.  
  16. my $in = vnew interactive('su');
  17.  
  18. $in->exit(0);
  19.